home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / graphics / aim_xtra.arc / DEMOSCH.AIM < prev    next >
Text File  |  1988-08-17  |  4KB  |  127 lines
  1. * Analysis of electronic scheme 
  2. * by Cellular Logic Operations 
  3. * Frans Groen TU-Delft
  4. *
  5. @CORSHA     * correct the image for shading
  6. doff        * display off
  7. bcop 1,8    * copy the thresholded image
  8. bcop 1,6    * original in green
  9. inv 6       * after inversion
  10. *
  11. * separation of drawing and text
  12. *
  13. *
  14. * fill small holes
  15. bcop 8,7,B,B       * copy bitplane
  16. don
  17. erosion 1,8,4,0,B  * erode small holes away
  18. prop 511,8,7,8,0,B * propagate for what remains
  19. inv 8              * cleaned drawing in red
  20. don,4              * multi-bitplane display on
  21. bcopy 8,5,B,B      * save original in b5
  22. doff               * display off
  23. *
  24. * make skeleton
  25. skelet 511,8,1,B   * skeleton in b8
  26. don                * single bitplane display
  27. bcopy 8,4          * save skeleton in b4
  28. *
  29. * shave skeleton
  30. bcopy 8,7,B,B       * copy in b7
  31. -skelet 16,7,1,B    * remove strokes of length 16
  32. exor 8,7,7,B        * find strokes
  33. vertices 8,0,B      * vertices in bitplane 3
  34. dilation 1,8,8,0,B  * enlarge vertices
  35. propag 511,8,7,8,0,B * propagate vertices in strokes
  36. exor 4,8,8,B        * cleaned object in b8
  37. bcopy 8,4           * save in b4
  38. *
  39. * separate text based upon vertices in 
  40. * the skeleton with removed strokes
  41. * 
  42. bcopy 8,7            * copy for propagation mask
  43. vertices 8,0,B       * find vertices
  44. propag 511,8,7,8,0,B * propagate vertices in skeleton
  45. bcop 8,4,B,B         * save cleaned skeleton in b4
  46. propag 511,8,5,8,0,B * propagate skeleton in drawing
  47. doff                 * display off
  48. reset 7              * reset for display
  49. don,4                * multi-bitplane display 
  50. bcop 8,5             * save original in b5
  51. *doff                 * display off 
  52. *
  53. *analyse objects
  54. *capacitors : big objects
  55. bcop 5,6            * original in b8
  56. ero 4,6,4           * find capacitors
  57. prop 4,6,5,8,0,B    * propagate back
  58. *  capacitors in b6
  59. *resistors : objects enclosing small holes
  60. don,4
  61. inv 5,B             * invert
  62. bcop 5,7            * original in b7
  63. ero 5,7             * erode 5 times
  64. propag 511,7,5,8,0,B * find what remains
  65. exor 5,7,7,B        * find what disappears
  66. *  resistors in b7
  67. * opamps
  68. bcop 5,8
  69. erosion 7,8,8,0,B   * erode 7 times
  70. propag 511,8,5,8,0,B * find what remains
  71. exor 5,8,8,B        * and what disappears
  72. exor 7,8,8,B        * removes the resistors
  73. doff
  74. *  opamps in b8
  75. * finds location of components in scheme
  76. *   extend opamps
  77. dilation 2,8,6,0,B * extend opamps  
  78. bcopy 8,1,B,B      * save seed bitplane
  79. propag 3,8,4,6,0,B * propagate in skeleton
  80. or 1,8,8,B         * or seed bitplane
  81. bcopy 8,1,B,B      * opamps in b1
  82. * extend resistors
  83. dilation 2,7,6,0,B * extend resistors
  84. bcopy 7,2,B,B      * save seed bitplane
  85. propag 3,7,4,6,0,B * propagate in skeleton
  86. or 2,7,7,B         * or seed bitplane
  87. bcopy 7,2,B,B      * resistors in b2
  88. * extend capacitors
  89. bcopy 6,3,B,B      * save seed bitplane
  90. propag 3,6,4,6,0,B * propagate capacitors in skeleton
  91. or 3,6,6,B         * or seed bitplane
  92. don,4              * multi-bitplane display on
  93. bcopy 6,3,B,B      * capacitors in b3
  94. * determine endpoints and branchpoints
  95. * find scheme without components
  96. bcop 4,8         * get cleaned drawing (b4)
  97. inv 8            * invert
  98. or 1,8,8         * get rid of opamps
  99. or 2,8,8         * resistors
  100. or 3,8,8         * capacitors
  101. inv 8            * drawing without components
  102. bcopy 8,6        * copy in b6 for vertices
  103. bcopy 8,7        * copy in b7 for endpixels
  104. * find endpixels of the components
  105. endpix 7,0,B     * find endpixels
  106. dilation 2,7,6,0,B * extend endpixels
  107. * find vertices
  108. vertices 6,0,B
  109. dilation 2,6,6,0,B
  110. *
  111. * color assignment
  112. * lines    : grey    resistors  : blue
  113. * endpixels: yellow  capacitors : green
  114. * vertices : purple  opamps     : red
  115. *dilate lines because of low_res display
  116. dilation 1,8,6,0,B
  117. or 6,8,8
  118. or 7,8,8           * lines    : grey   876.....
  119. exor 8,6,6         * vertices : purple 87......
  120. exor 8,7,7         * endpixels: yellow 8.6.....
  121. * insert components
  122. or 1,8,8           * opamps   : red    8......1
  123. or 2,7,7           * resistors: blue   .7....2.
  124. or 3,6,6           * capacitors: green ..6..3..
  125.  
  126.             
  127.